home *** CD-ROM | disk | FTP | other *** search
/ MacAdvocate 2 / apple-mac-advocate-ii-fall-1997.iso / mac / MacOS / Other Installers / LaserWriter 8.4.1 Installer / LaserWriter Disk 1 / PL.CommonRsrc / PL.CommonRsrc.rsrc / PS_-8130 < prev    next >
Encoding:
Text File  |  1996-09-10  |  357 b   |  24 lines
  1. %%?BeginFontListQuery
  2. save/sv exch def
  3. /languagelevel where
  4. {
  5. pop languagelevel 2 ge
  6. }{
  7. false
  8. }ifelse
  9. {
  10. (*){cvn ==}bind 128 string/Font resourceforall
  11. }{
  12. FontDirectory{pop ==}bind forall
  13. /filenameforall where
  14. {
  15. pop
  16. (fonts/*)
  17. {dup length 6 sub 6 exch getinterval cvn ==}bind
  18. 128 string filenameforall
  19. }if
  20. }ifelse
  21. (*)=
  22. sv restore
  23. %%?EndFontListQuery: Unknown
  24.